home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / PARMA7.M < prev    next >
Encoding:
Text File  |  1994-02-13  |  530 b   |  30 lines
  1. MODULE T;
  2.  
  3. (*$R-,S-*)
  4.  
  5. (*
  6.  * Tests für A7- und Reg-Parameterübergabe
  7.  *)
  8.  
  9. FROM SYSTEM IMPORT ASSEMBLER, ADDRESS;
  10.  
  11. (*$[+*)
  12.  
  13. TYPE Ptyp = PROCEDURE (CARDINAL, CARDINAL);
  14.  
  15. PROCEDURE proc1 (a,b: CARDINAL);
  16.   VAR e,f: CARDINAL;
  17.   BEGIN
  18.     e:= a;
  19.   END proc1;
  20.  
  21. VAR c,d: CARDINAL; ch: CHAR; s: ARRAY [0..2] OF CHAR; ca: ARRAY [0..2] OF CARDINAL;
  22.     s5: ARRAY [0..4] OF CHAR; l: LONGCARD; r: LONGREAL; ptr: ADDRESS;
  23.     procvar: Ptyp;
  24.  
  25. BEGIN
  26.   ASSEMBLER BREAK END;
  27.   procvar:= proc1;
  28.   procvar (1,2);
  29. END T.
  30.